www.gusucode.com > 忠网网站广告管理系统 ZonGG V1.3 > 忠网网站广告管理系统 ZonGG V1.3\code\GGtiaoDm.asp
<!-- #include file="include/Config.asp" --> <!-- #include file="include/Conn.asp" --> <% '///********************************* ' 嵌入代码式 广告条的显示程序 '********************************/// if trim(request("id"))<>"" then if xmltype=1 then '' xml 存取 strSourceFile = Server.MapPath(dataxml&"/Advertisement/"&trim(request.querystring("id"))&"/adv.xml") Set objXML =Server.CreateObject("Microsoft.XMLDOM") '创建一个XML对像 objXML.load(strSourceFile) '把XML文件读入内存 Dim xml Set xml=objXML.documentElement.selectSingleNode("Advertisement") '选取节点 Advertisement ADintro = xml.childNodes.item(2).text else Set tempRs=Server.CreateObject("ADODB.Recordset") tempRs.open "select * from Advertisement where ADid="&id,conn,3,3,1 if not tempRs.eof then ADintro=tempRs(2) end if tempRs.close Set tempRs= nothing end if response.write ADintro else response.write "<center><br><br>无效广告。</center>" end if %>